LA REVUE Aut CONSOLE LES BOURSIERS MALCHANCEUX NOVEMBRE 1987 


US 


+ 
LÉ 


Le 
> 


C 


», 
re 


22} 


{ 
. 
2< 


is — 


EDITORIAL 


TURBO-Forth se porte bien, merci. Sa finition est en cours, mais afin de ne pas 
trop vous faire attendre, nous diffusons déjà une version d'évaluation (version 
en l'état) permettant de programmer les exemples fournis dans ce numéro. 
Certains vont hurler: "comment! un nouveau FORTH! pourquoi ne pas garder celui 
déja existant...". Mais considérons le point de vue du programmeur: voila une 
personne ayant un travail à réaliser, première étape, définir un squelette et le 
tester. Si le modèle est satisfaisant, on l'habille. Si le programme est destiné 
à la commercialisation, il faut particulièrement Soigner l'ergonomie. Or, quand 
le programme devient particulièrement important, comme FORTHLOG II, un rajout 
trop important impose un remaniement des blocs très délicat. Avec un fichier 
ASCIT et un bon traitement de texte, tout se simplifie. Un FORTH compilant des 
fichiers ASCII ne s'appelle plus F83, d'où l'idée de nommer ce nouveau produit 
TURBO-Forth. Finis les blocs, les FCRS, les buffers de 1K. Souhaitons maintenant 
que vous fassiez bon accueil à ce nouvel arrivant et qu'il vous redonne goût à 
la pratique d'un langage de programmation très performant. 
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GESTION DE VARIABLES LOCALES 


5 DE 
#PTR QUP @ DUP 2- QUP ALST ) 
IF RO! | 
dE TRUE ABORT" Pile Lambda pleine" 


: L) 

#PTR OUP @ 2+ OUP ROT ! @ ; 
: LS@ 

#PTRO+R); 
: LS! 


HPRE+I!; 
: HPOP  #PTR #! ; 


7 F43 Laxen et Perry - MS00S - CP/M 
Turbo-FORTA - MSDOS 


par Marc PETREMANN 


A chaque article suffit sa peine. La dernière fois qe nous 
parlions de variables Locales, on avait introduit Le CREATE #LAMBDA 100 ALLOT 

concept T0 (CJEDI n°25,26 et 30). Or, bien qu'intéressant, DECIMAL 

ce principe ne S'affranchit pas de La génération d'en-têtes 4 CONSTANT 4 6 CONSTANT 6 
dans Le dictionnaire, en-têtes parfois Hot si on est un 10 CONSTANT 10 12 CONSTANT 12 


4 CONSTANT 8 
14 CONSTANT 14 


peu. pire et que L'on souhaite (travailler avec des : [2-141 Un ---) 
variables Locales "PASCAL-Like". CASE 2 OF ni . ; A 
Le Lil qe je propose ci-après n'est pas de mon crû. 60F L'16,  ENDOF 
Had js été diffusé dans Or D08BS JOURNAL. Je n'ai fait 8 0F ({'}8,  ENDOF 
que L'adapter au F83 de Laxen et Perry, Le FORTH Le plus 10 0F C’110 , ENDOF 
répandu. 12 0F (‘3 12,  ENDOF 
| Re. : 14 OF  {']1 14, ENDOF 
La partie La plus difficile à mettre au point a êté La DUP [COMPILER LITERAL 
suppression des en-têtes de variables aprés utilisation. ENDCASE ; 


HEX 
Le principe de ces nouvelles variables Locales fait appel à CREATE LINK-ARRAY 8 ALLOT 
deux nouveaux mots de définition, (DECLARE qui débute La FORTH DEFINITIONS ue 
déclaration des variables, (OEFINE qui commence La : (DECLARE \ Définit opérateur LAMBDA 
définition d'un mot de manière identique au mot : (deux- #LSO #PTR ! \ RESET pointeur pile  LAMBDA 
points) et Le mot )» qui ferme La définition. Entre CURRENT @ OUP CONTEXT ! \ restaure contexte 
(DECLARE et (DEFINE, Les variables sont crées par VAR et LINK-ARRAY 4 CMOVE \ sauve Les Liens voc courant 
LOCAL. Exemple: HERE DP-GAVE ! \ sauve Hu de dictionnaire 


#LAMBDA OP ! \ déplace pointeur dictionnaire 
(DECLARE VAR N1 VAR N2 LOCAL SOMME CL ; \ met zéro en haut de pile 
(DEFINE  AODITION 
NA N2 + SOMME LET ( somme:=n1+n2) )) ALEPH DEF INITIONS ne 
: | \ Utilisé dans une définition ALEPH, sous La forme: 
A l'exécution, Les données empilées sont affectées de La \ (DECLARE VAR (nom) ... LOCAL (nom) 
manière suivante aux variables déclarées par VAR: \ (DEFINE nom) ...définition... ») 


ni n2 ADDITION DEL DÉFINITIONS 


n1 passe dans N1 
nè passe dans N2 


La définition des variables Locales par LOCAL permet 
d'exploiter des variables dont Les données sont 
initialisées à zéro. En sortie de procédure, il faut 
Laisser sur La pile Le résultat des opérations. Exemple: 


: LE 
C'} LSI HERE 2- ! ; IMMEDIATE 
: VAR ( --- (nom) ) 

CREATE Lo 4+ QUP 31 2# C, IMMEDIATE 

DOES) C@ [2-14] COMPILE LS® ; 
: LOCAL ( --- (nom) ) 

CREATE LL} 1+ 100 + 

OUP DL OFF AND 2x C, IMMEDIATE 


è 00ES) C@ [2-14] COMPILE LSG : 
né+aÿ=) valeur à sortir HEX 


: (DEFINE 
QP-GAVE @  DP ! 
1CSP CURRENT @ CONTEXT ! 
ai HIDE 2 LS@ 100 !  ?DUP 


{ni+n2)xn3sn4 nitn2/22n5 


{DECLARE VAR NT VAR N2 VAR N3 
LOCAL N4 LOCAL NS 

(DEFINE OPERATION ( n1 n2 3 --- n) 

NT N2 + N3 # Né LET 

N2 2/ N9 + NS LET BEGIN 

Na NS +  )) COMPILE 0 1- ?OUP 0: 

, : UNTIL 

Ca surprend, mais c'est très efficace. Et pour vous en 

convaincre, ie SEE OPERATION, vous comprendrez mieux 


THEN 
t J 2 LS@ OFF AND ?OÙP 
comment travaillent Les variables Locales. IF 


BEGIN 
COMPILE DL 1- ?DUP 0: 
UNTIL 


HEX THEN 
VOCABULARY ALEPH ] 
ONLY FORTH ALSD ALEPH ALSO 
ALEPH DEFINITIONS 
CREATE #LST 50 ALLOT | 

#LST 4E + { valeur du point de débordement 
CONSTANT #LS0 \ val initiale du pointeur de pile 
VARIABLE #PTR \ pointeur de pile Lambda 
VARIABLE DP-SAVE | sauvegarde de OP 
#LSO 4PTR ! 


[') : @ LAST @ NAME) |! ; 


DL 
2 LS@ OFF AND ?# [2-14] 
COMPILE #POP LINK-ARRAY CURRENT @ 8 CMOVE 
LAST @ CURRENT @ HASH QUP @ LAST @ 2- ! 
LAST @ 2- SWAP ! [COMPILE ; ; IMMEDIATE 
ONLY FORTH ALGO 
DECIMAL 


Nota: Le présent Listing est exempt de toute erreur, il à 


regti Ï ; 
SLA EERD D EECUEREDL A HE ODEAUE RE GE DES OL 
compilation par F83, il devrait fonctionner sans accroc. 


2 TEDi M°Z3 . NovEMBRE A4ST 


Normalement, il est cpérationnel sur tes versions F83 sous 
MGDOS (ComplBM) et F83 CP/M (AMSTRAD toutes versions). 


Les améliorations possibles: 

- optimisation en UE machine Le ES@ et LS. 

- déplacer La zone ST en dehors du dictionnaire et 
gérer un mécanisme de pile descendante, 

- intégrer Le mécanisme de gestion de variables Locales à 
La définition de : et ; avant méta-compilation. Le mot 
(DECLARE serait conservé, S'il n'est pas utitisé avant une 
définition deux-points, aucune différence ne devrait 
apparäitre entre un mot deux paints ordinaire et votre 
définition créée par votre FORTH nouvelle version. Dans Le 
cas contraire, Le mot L) devrait apparaître à La 
décompilation. 


A titre d'exemple vraiment concret, voici une application 
des variables Locales dans L'article qui suit. 


mm 


F#3 Laxen et Perry - MSD0S 
Turbo-FORTH - MS00S 


par Marc PETREMANN 


Le premier mot à définir est Le mot MODE. Celui-ci à été 
testé avec succès sur Le PERSONNA 1600 de LOGABAX et 
fonctionne plus ou moins bien sur d’autres systèmes en 
fonctions des modes graphiques gérés par votre système 
compatible. 


Le mot DARK primitivement défini par Laxen et Perry nettoie 
L'écran par sélection systématique du mode graphique 2 
{mode texte 25x80 couleur). Il faut donc définir Le mot 
MODE de manière à Le faire réexécuter systématiquement par 
DARK Sans revenir au mode 2. C'est ce Le fait (MODE) en 
reprenant Le contenu de La variable GRMODE (contraction de 
AR IURE Le mode JEAN doit être choisi entre 0 
et 7. Pour exemple, Le mode 6 bascule votre aAcnae en 
mode graphique 640x200 (51 carte controleur Écran 
adéquate). 


VARIABLE GRMODE 2 GRMODE ! 
CODE (MODE) (--- n entre O et 7) 
GRHODE #) AX MOV 16 INT NEXT l; 
! (MODE) IS DARK 
: MODE ( n ---) 
GRMODE ! DARK : 


Ensuite, DARK est revectorisé sur (MODE) et MODE stocke Le 
mode graphique demandé dans GRMODE avant exécution de DARK. 
Si vous trouvez plus simple... 


\ fonctions grip 

VARIABLE (6COLOR) 

CODE GCOLOR { n ---) 
(GCOLOR) # BX MOV 

VARIABLE XPLOT 

HEX 


CODE PSET (x ÿ ss) 


0 €BX] POP NEXT END-CODE 
VARIABLE YPLOT 


DX POP YPLOT # BX MOV OX 0 [BX] MOV € YPLOT::dx) 
CX POP KPLOT 4 BX MOV EX O EBX] MOV  L XPLOT:=cx) 
0C # AH MOV 


(GCOLOR) #) AL MOV 10 INT NEXT END-CODE 
DECIMAL 


Le mot GCOLOR sélectionne 
graphique. Exemple: 


1 GCOLOR 


La couleur du tracé en mode 


Le mot GCOLOR définit en code machine peut aussi se définir 
en FORTH sous La forme: 


: BEDLOR  (GEOLOR) ! ; 


Les variables XPLOT et YPLOT sont punues de mémoriser 
Les cosrdonnées du point trace par PSET. Éxemple: 


100 120 PSET  XPLOT ? YPLOT ? 
affiche 100 120 


Voici Le ee morceau, La définition de LINE. Si IBM (et 
ses clones) ont es ile de disposer d'une fonction pré- 
programmée pour faire des points en mode SApIqUe, il 
n'en est pas de même pour tracer une Ligne. Alors pour 
parer au plus pressé, et à titre d'exemple, illustrons ce 
qui a été écrit dans La précédente rubrique (Les variables 
locales): 
{DECLARE VER YD 
VAR YF 
LOCAL DY 
LOCAL YINER 
LOCAL X 


VAR XD 
VAR XF 
LOCAL DX 
LOCAL XINCR 
LOCAL CUMUL 
LOCAL Y 
(DEFINE LINE 

KO X LET  YD Y LET 
ELSE -1 THEN 
LET 


XD XF € 


THEN 


KO XF - ABS DX LET 
YO YF - ABS DY LET 
IF OX 2/ CUMUL LET 
DO X XINCR + X LET 
CUMUL DY + CUMUL LET 
IF CUMUL DX - CUMUL LET 
Y YINCR + Ÿ LET 
HEN 


r 
X Y PSET 
P 


OX OY } 
OX 1+ 1 


CUMUL OX = 


L00 

ELSE 

QY 21 CUMUL LET DY 1+1 
00 Y YINCR + Ÿ LET 


CUMUL DX + CUMUL LET 
IF CUMUL DY - CUMUL LET 
X XINCR + X LET 
THEN 
X Y PSET 
LODP 
THEN D) 


CUMUL OY >= 


Î s'utilise en précisant Les coordonnées de départ et 


e 
d'arrivée. 

: LINETO € xf yf ---) 
}R OR  XPLOT Ë YPLOT @ LINE ; 


Le mot LINETO trace un segment en reprenant comme paint de 
départ Les coordonnées du dernier point tracé. 


(DECLARE VAR XD VAR YD 


VAR YF 
(DEFINE BOX 
XD VD XF YD LINE 
XF YF LINETO 
XD YF LINETO 
XD YD LINETO }} 


Le mot BOX trace un rectangle. 
dessin S1 vous e55ayez ce mot. 


: BOXTO € xf yf ---) 
JROR XPLOT @ YPLOT @ R) R) BOX ; 


R) R) 


Inutile de vous faire un 


Üe même, BOXTO se passe de commentaire. On applique à BOX 
ce que LINETO fait subir à LINE. 


(DECLARE VAR XD VAR YD 
VAR XF VAR YF 
(DEFINE 


XF + XD 
00 j YO 1- [ YF LINE 
LOOP )) 


Et pour achever notre 
plel 


ein, 


délire, BOXF dessine un rectangle 


JEM NN ; ER — Miasenm bre {18 + 


Les améliorations possibles: 


- réécrire LINE 


é e en. (angle machine (c'est un gros 
travail, mais en décampilant L 


NE, vous serez aidé). 


- sécuriser LINE et PSET afin de ne pas tracer en dehors 
de L'écran, ceci en fonction du LL TQCÉE sélectionné. 
on est en mode non-graphique, signaler par un message 

l'erreur. 


- of peut connaitre par MSDOS Le. type de contrôleur 
écran. Définir une routine autorisant l'accès aux 
différents modes si Le contrôleur adéquat est disponible. 


Nota: concernant Turba-FORTH, La définition de MODE et La 
ces de DARK sur (MODE) est implantée en 
standard. 


Voilà, assez travaillé du chapeau, je vais me coucher, 
bonne nuit. 


GESTION DES ATTRIBUTS MINITEL 


La 79-STANDARO 
par J.C, LEMAIGRE 


Objet: gestion des attributs de L'écran: clignotement, 
couleur, curseur, etc... 


Chaque attribut demande L'envoi d'une SOURCE de 
caractères commençant généralement par ESC suivi de 1 ou 2 
caractères de définition. Pour exemple, Le pasage en double 
Longueur des caractères sur un fond gris avec Clignotenent 
devfa s'écrire: 


HEX : ESC 18 EMIT ; 
ESC 4E EMIT ESC 42 EMIT ESC 48 EMIT 
DECIMAL 


En cas de mise en page d'un texte, ceci n'est pas sans 
alourdir Le texte source, d'autant plus que toute 
nodification directe de La position du curseur siginifie La 
fin des attributs précédents. 


Les séquences principalement utilisées Sont souvent 5587 
réduites, on al te fond, l'encre, La taitle des 
caractères. It est tentant de compresser Le codage des 
attributs pour éclaircir Le texte source. 


ENCODAGE DES ATTRIBUTS 


4) Définition du code sur 1 octet. 


32 8] 4 1 
20 8] 4 1 
d0!taille normale 
01:double hauteur 
10:double Largeur 
. 1f:double grandeur 
0'fixe 


F:clignotement 
S'fond normal 
1:fond inverse 

(0)000fond noir 

(4)100: | 

(9001: | gris 


bit DEC 
HEX 


| 


(5)101: L-tlassés 
(2010: | dans L'ordre 
(62110: 

(3)011:. 


(7)111:fond blanc 
Q'encre blanche 
lsencre noire 


NM 74- Nivembre l16# 


TEDI 


Définition de La position du curseur: 
: POSITION ( MU LE n‘colonne --- en décimal) 
du + SMAP 64 + 31 ENIT EMIT ; 


+: ATRIB Cn1--- attributs minitel) 
OU? 03 AND 4C + ESC EMIT 

OUP 04 AND 

IF ESC 48 EMIT 

ELSE ESC 49 EMIT THEN 


P 08 ANE 
IF ESC 50 EMIT THEN 
QUP 70 AND 10 / 
ESC 50 + EMIT 
80 AND 
IF ESC 40 EMIT 
ELSE ESC 47 EMIT THEN ; 


Utilisation: 
xx ATRIB 


Note: Les attributs commencent qe un espace pour La 
couleur du fond qui n'est valide que sur La Ligne en 
cours, tous tes caractères sont valides sur La page, sans 
espace préliminaire. IL faut définir La position avant Les 
attributs. Pour Les faibles en calcul mental, 
l'utilisation d'une calculatrice de poche, est to 
Ndér: et si on a FORTH sous La main, peut-on travailler 
en binaire?... Rdlr-réponse de La rédaction-: bon sang, 
mais c'est bien sûr!...) 


DECIMAL 


79-STANDARD 
par J.C. LEMAIGRE 


Lorsqu'on dispose d'un vieux Forth 79-STANDARD enROMé, 
quelques petits utilitaires de gestion facilitent bien La 
vie, surtout si L'on teint à cè que 5es programmes aient 
une tête bien ordonnée pour une maintenance future. 


C'est le cas pour ces deux petites choses qui travaillent 
régulièrement pour moi (quand on à pas de tête, il faut 
avoir des esclaves...), La première s'appelle LIBÉRE. Son 
rôle est de Libérer L'écran que L'on désire utiliser, en 
poussant Le contenu de celui-ci vers Le suivant si celui- 
ci est Libre, Sinon... vous me suivez? 


Cediteur #DECAL E-ECRANS LIBERE) 
: AVIDE BLOCK SWAP -TRAILING SWAP ORDP ; 
: RECHERCHE -VIDE 
BEGIN ‘+ OUP 1024 SWAP 
SVIDE 0= 


UNTIL ; 

: FDECALE-ECRANS (€ nt n2 --- décale Les écrans n1 à n? 
d'un écran) | 

{ suppose IE nè+1 est Libre) 

SWAP OUP ROT + 00 I 1- I COPIE 1- +LO0P NEW FLUSH ; 

: LIBERE ( n1 --- 

QUP RECHERCHE-VIDE À- 

#DECALE-ECRANS ; 


Le deuxième de ces esclaves est complémentaire de celui- 
ci, car de L'utilisation de plusieurs LIBERE et de 
qeNees SWAP-ECRANS pour potes 50n jus on à 
une forte tendance à S'exclamer ‘mais M... (Ndir: et non 
M... comme pourrait Le croire Mr BOUYGUES) où est donc ce 
mot TOTO (re-Ndtr: en propose Le mat TOTO comme réservé 
par Le système...)", La Seule chose dont on soit encore à 
peu près sûr est L'écran où commence Ce #*#F#H### (CENSUTÉ 
(...ou bétonné, comme dirait M.POLAC...)) de programme. 
C'est Le rôle de que recherche dans tous Les éCrans à 
la suite du n° spécifié Le mot FOTO. Utilisation: 


20 FINO TOTO 


Ndtr: en F83, sous éditeur, cette fonction existe, elle 
s'appelle S et s'utilise en tapant n S texte et recherche 


Le texte à partir du bloc courant jusqu'au bloc numéro n. 


( FIND TEXTE) 
: #FD1 ( ---) | 

{ troouve mot suivant et --) PAD) 
32 WORD HERE C@ 1+ CMOVE 
Q HERE C! ; 


sl 

: #CMP ( COMPAR 2 CHAINE AD A02 LG) 
0 G ROT SWAP 00 DROP DUP C@ ROT DUP C@ 
ROT = O= QUP IF LEAVE THEN 
ROT 1+ ROT 1+ SWAP ROT LOOP 
ROT DROP SWAP DROP 0= ; € si flag 1) 
0 VARIABLE #TROUVE 
: #FD2 (n° BLK--0/add dans TROUVE) 
0 HTROUVE ! 
BLOCK OUP 1024 + SWAP D0 

1 32 ENCLOSE OUP NOT IF DROP 104 THEN 

'R SWAP - PAD £@ = 

IF OUP PAD C@ PAD 1+ SWAP #CMP 

IF OUP #TROUVE 1 THEN 
THEN R) + 1- R) DROP DR 
LRU @ IF LEQVE THEN 


LO0P ; 
(€ FIND TEXTE) 
: FIND € recherche un mot à partir ) 

{ du n° de block spécifié) 
#FD1 ( transfre MOT dans PAD) 
CR € CR ." à partir du BLOCK N°: " #IN ) 
0 #TROUVE ! 
BEGIN OUP FTROUVE @ NOT ?TERMINAL 

NOT AND 


WHILE 13 EMIT OUP . #F02 1+ 

2SI0ES NOT 

IF ." NON TROUVE" ABORT THEN 
REPEAT 
#TROUVE @ 


IF 1- LIST 
AE CR ." INTERROMPU EN " 1-. 
H . 


! 


Le mot SIDES € n1 --- nf flag) renvoie 0 en flag si Le n° 
d'écran n'est pas dans l'espace disque. 


um 


PROBLEME EXISTENTIEL 


nr 


79-Standard 
par J.C.LEMAIGRE 


de travaille énormément en “overlay" sur mon éditeur, car 
mon espace mémoire est de 8k, éditeur compris. Je vois Les 
PCistes sourire, mais essayez donc de faire tourner ADA La- 
dedans!. Bref, 51 je me rappelle à peu près où sont Logés 
tous Les petits bouts nécessaires, il est difficile de se 
pH si Le dernier mot utilisé a détruit ou pas Le 


NCASE ou Le .S un peu spécial nécessaire. Alors ce petit 
que il très pratique en restaurant L'environnement 
adéquat. 


: EXISTE? IF 2DROP OROP ELSE LOAD THEN ; 


129 -FIND NCASE EXISTE? 
46 -FIND .S  EXISTE? 


Jde sais, c'est un peu court pour remplir un journal. 


DECOMPRESSION DES FICHIERS AU LANCEMENT DE F83 


F83 Laxen et SE MSD0S - CP/M 
par Marc PETREMANN 

Suite à une question posée par téléphone par Mr PERRET de 

FLERS, et qui est La suivante: ï 

Sans passer par La décompression de fichiers au Lancement 

de RUNME.COM*, j'apporte Les grécisions suivantes. 


comment démarrer FORTH 


Quand vous recevez La disquette contenant F43, Le 
programme à démarrer S'appelle RUNME.COM. Ce programme 
vous invite à expanser Les fichiers disponibles Sur Le 
disque. Si vous ne voulez pas expanser Les fichiers, tapez 
sous MSDOS: 


EMPTY 
* HELLO IS BOOT 
SAVE-SYSTEM F83.CDM 


La procédure normale d'expansion de fichier impose La 
présence de deux Lecteurs de disquette, respectivement A: 
et B:. La disquette origine est introduite en A:, Les 


disquettes destination dans B:. Prévoir deux disquettes 
formatées. 

Pour utiliser FB3, il n'est pas nécessaire de décompresser 
Les fichiers marqués par L'extension.HUF. Ces fichiers 
contiennent Le méta-compilateur F83 et Les fichiers source 
ayant servi à générer F83. Eh oui, F83 est écrit et généré 
par FB3. Maïs 51 vous disposez d'un disque dur ou 51 vous 
ne disposez que d'un Seul Lecteur de disquette voici 
comment opérer une décompression "manuelle": 


1) sur disque dur sous MSDOS, créer un sous-répertoire 


FORTH en tapant: 
MKDIR FORTH 

copier La disquette contenant F83 sur Le disque dur: 
COPY A:#.# C:1FORTH 


passer sur Le disque dur: 


C: 
CD\FORTTH 


vérifiez en tapant DIR et Lancer RUNME.COM. Opérer comme 
décrit précédemment pour générer F83.C0M. 


Repasser Sous D0S et relancer RUNME. On décompresse un 
fichier en tapant: 


EXPAND fichier.HUF fichier.BLK 
Exemple: 
EXPAND K86.HUF KERNELGG.BLK 


Le nom de fichier peut être précédé du n° de drive source 
ou destination: 


EXPAND A:KG6.HUF C:KERNELB6.BLK 


Si vous ne disposez que d'un seul Lecteur de disquette 
sous MSDOS: 


copier RUNME.COM sur une disquette vierge et formatée; 
copier un fichier d'extension .HUF sur cette même 
disquette; Lancer RUNME et taper sous FORTH: 

EXPAND fichier.HUF fichier .BLK 


L'opération de CM EEE d'un fichier ascii quelconque 
est activée par COMPRESS fich-orig fich-dest. Exemple: 


COMPRESS C:TEST.D0C A:TEST.HUF 
Sous CPIM, c'est à dire depuis un AMSTRAD, La 
décompression des fichiers source est activée sous CP/M en 
utilisant Le programme USQ.C0M. Exemple: 

- mettre USQ sur un disque vierge et formaté: 

- copier un fichier d'extension BQK ou HOX; 

- taper: 

USQ EXTEND.BQK 
Le Système vous informe qu'il Lance La décompression: 


EXTEND.BQK --> EXTEND.BLK 


JEDi 124. Khvennhe 19387 


6 JEN V°25. Novembre 1384 


Si Le fichier n'est pas un fichier compressé, L'opération 
de décompression echoue. 


ATTENTION: sur AMSTRAD, La capacité disque aps d'être 
insuffisante si on décompresse un fichier da grande taille. 
Pour exemple, Le. seul fichier METABO.BLK fait 240k de 
capacité NUS Cet avertisement est valable même si on 
décompresse à t'aide de deux Lecteurs disque. 


Ce que contiennent Les fichiers sous CPIM: 
METAGO.BLK Le méta-compilateur et Le source du noyau 


TH 
EXTENDA0.BLK Les extensions du he F83 

CPU8080.BLK L'assembleur FORTH 8080 

UTILITY.BLK Les utilitaires F83 

KERNEL.HEX Le noyau au format HEX, Pour Le transformer en 
.C0H AE l'utilitaire LORD Livré avec La disquette 
systéme CPI: 


LOAD KERNEL.HEX ce qui génère KERNEL.COM 
Le fichier KERNEL.COM est identique à ce qui résulterait 
d'une opération de méta-compilation. Ce fichier contient un 
F83 minimal. La poursuite de La méta-compilation est 
exécutée en tapant: 


KERNEL EXTENDSO .BLK 
OK € ceci doit être tapé, ce n'est pas un ‘prompt') 


En fin de méta-compilation, taper BYE, 
nombre de pages affiché et taper sous CP/M: 


SAVE n F63.C0M 


prendre note du 


où nest Le nombre précédemment noté, Etant entendu que Les 
fichiers EXTEND, UTILITY et CPU contiennent une partie du 
source FORTH, 5ile contenu de ces fichiers est modifié, 


votre nouvelle version de F43 prendra en compte ces 
modifications. 


Contenu utile sous MSDOS: 


METAGG .BLK 
KERNEL 86. BLK 
EXTEND86 .BLK 
UTILITY.BLK 
CPU8086 .8LK 
HUFFMAN.. BLK 
CLOCK.BLK 


| 
| similaire à METABO.BLK de CPIM 


Le méta-compilateur est Lancé en tapant: 


F03 METABG.BLK 
puis sous FORTH 
OK ( ceci doit être tapé) 


attendre... FORTH génère Le fichier KERNEL.COM 


Revenir sous MS00S et taper: 


KERNEL EXTEND86.BLK 
OK ( ceci doit être tapé) 


Attention, si vous méta-compilez sur disque dur, éditez au 
préalable Les blocs 1 des fichiers META8G et EXTEND86. En 
effet, Les fichiers appelés depuis Le méta-compilateur sont 
forcés depuis Le Lecteur A:. Remplacer A: par C: où mieux, 
par rien. 


Exemple: 


CARRE dans METABG.BLK, écran 1 
FROM A:KERNEL86.BLK 1 LORD 


par 
FROM KERNEL8G.BLK 1 LORD 


Procédez de mème dans Le fichier EXTEND aux endroits où Le 
contenu de CPU et UTILITY est appelé par FROM. 


Voilà, vous savez maintenant 
générer Turbo-FORTH. 


comment procéder pour méta- 


Note: La sélection du disque dur sous MSDOS peut être 
activée par Le mot C: dont La définition est: 


: C: © 006 2 2 SELECT EL FORTH ] ; 


| RECUPERATION O'EVALUATION | 


Le LISP 
par J.M. PERRET 
Je profite de L'occasion pour vous AU ma modeste 
contribution: cette fonction Le Lisp permet de récupérer 
La dernière évaluation et de La Lier au symbole "à": 


(de recup (} 
{set à f:toplevel:eval)) 


Un exemple: 


C'est tout! J'espère faire mieux La prochaine fois. 


COURRIER : Cher secrétaire, 

Jde viens de recevoir (enfin, il y à qe quelques jours) 
Le n° 38 de JEDI, je suis heureux de voir que JEDI 
continue. Suite à ma Lettre, je vous fait parvenir un 
“article (si on peut HE ça ainsi) (CNdlr: voir ci- 
après: COMPLEMENT AÀ L'ARTICLE). Je n'ai pas de traitement 
de texte sur PC. Je L'ai donc écrit avec l'éditeur de 
Turbo-PASCAL. Mais au fait, d'où me vient cette idée qu'il 
faut envoyer ses articles sur disquettes PC? IL me semble 
plutôt que JEDI est imprimé avec un MAC? 


L'annonce de Turbo-FORTH est vraiment alléchante et je 
suis intéressé au plus haut NUE Est-il déjà disponible? 
Si oui, combien coûte-t-1l? De La doc, vite, vite! 


Je ne connais pas Le Forth 83 de Laxen et Perry. J'ai des 
FORTH qui proviennent de QUF, mais sans doc et sans 
RARE graphiques. Où peut-on se procurer ce Forth? 

on prix? 


René BARONE 
13397 MARSEILLE CEDEX 13 


REPONSE : Cher adhérent forthien, 


Quand vous recevez JEDI, une ou plusieurs feuilles 
Ée donnent des informations complémentaires, notamment 
à LETTRE OU SECRETAIRE qui regroupe des infos concernant 
Les produits, Les annances, Les offres de services et Les 
directives pour envoyer Les articles: 


Bonne continuation. 


- F83 est disponible au prix de 100 Fr, Le manuel au prix 
de 120 Fr, Le tout port compris. 


A pui La solution des articles sur disquettes PC est 
La plus pratique, car elle permet un remaniement éventuel 
et une mise en forme aisée de votre prose. Mais un bon 
article de je ‘monté ne nous rebute Fe à condition que La 
frappe soit bien contrastée et que a typographie respecte 
Les règles élémentaires. J'ai moi-même donné L'idée de 
L'éditeur Turbo-PASCAL po écrire Les articles 

dispose pas d'un véritable traitement de texte. 


sionne 
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| 
LOGIQUE BINAIRE EN TURBO-PROLOG 


Ecrire un programme de logique en utilisant la PROgrammation LOGique, 
c'était logique non ! . : 

Ce programme permet d'une part d'évaluer une expression logique en 
donnant la table de vérité, d'autre part de simplifier une expression 
logique et aussi des la transformer avec des NAND à 2 entrées, 


Les domaines sur lesquels i1 travaille sont assez restreints. Tout 
d'abord la définition d'une expression logique (expr) faite de manière 
récursive (c'est aussi cela la puissance de TURBO-PROLOG) puis la définition 
d'une liste de chaînes de caractères (liste). 


2 . Evaluation d'une expression logique 


Les différentes clauses sont définies par le prédicat évalue chargé 
d'évaluer en 0 ou 1 l'expression donnée. 115 ne posent pas de problèmes 
particuliers étant donné les primitives bitor, bitand et bitnot présentes en 
TURBO-PROLOG. ; 

A noter cependant la relation X-Z+2 située après un bitnot. 


En effet, comme dans presque tous les langages, bitnot(0,Z) donne 2Z=-1 
au lieu de 1 et, bitnot(1,Z) donne Z=--2 au lieu de 0. I1 faut donc ajouter 2 
dans tous les cas pour retrouver le résultat "normal", (Cela ne vous 


rappelle-t-il pas la notion de complémentation à 2 7). 

Une fois le programme lancé avec l'option Run nous pouvons évaluer des 
expressions logiques. La seule contrainte est d'entrer l'expression sous 
forme d'arbre. 


Exenples : 


a) Goal : évalue(ou(booléen(A),booléen(B)),S8) donne la table de vérité 
de l'expression $S = A +:B (voir encadré 1). 


b) Goal : évalue(et(booléen(A), booléen(B)),S) donne la table de vérité 
de l'expression $S = A.B (voir encadré 2). 


1 
C)Goal : évalue(ou(bucoléen(A),et(booléen(B),booléen(C))),S) sort la 
table de vérité de l'expression $S = À + B.C (voir encadré 3). 


d) Goal : évalue (ou(booléen(A),et(non(booléen(A)),booléen(B))),5) sort 
la table de vérité de l'expression : L 
S = A + A.B (voir encadré 4). 


A noter que ce dernier exemple donne les mêmes résultats que le 
premier. | _ 

En effet À + A.B peut se simplifier en À + B, règle de simplification 
qui sera d'ailleurs utilisée par la suite. 


Z - Simplification d'une expression logique 


L'expression logique étant rentrée ici de façon plus conviviale que 
précédemment (voir exemples ci-après) 11 était nécessaire de fabriquer un 
analyseur lexical. C'est le rôle des clauses expr liste qui sont chargées de 
transformer sous forme de liste une expression entrée. 


Ainsi l'expression atb sera transformée en la liste L'a*,"+","b"] alors 
que l'expression Ca) .bta.(-b). se verra transformée en la liste 
L” Ce sa" AUD CSS 5 ” , “b"! "+? h “a! ; ” ALL Nid çn , LL ESS 1 ; »b", ” 21 + 


Quelques remarques à propos de la notation 


L'expression (-a).bta.(-b) sera entrée pour a.b + a.b. En effet, la 
fonction ET étant prioritaire sur la fonction NON, l'écriture -a.b 
représenterait en fait non(a.b), d'où la nécessité des parenthèses pour 
imposer une priorité, 


Une fois la liste constituée i1 va falloir la transformer en un arbre 
syntaxique tout en tenant compte des priorités. Ceci pour ramener au domaine 


expr défini. C'est ce que réalisent les prédicats arbre, term, facteur, 
moins, plus, produit, parenthèse ouvr et parenthèse fernm. 
Ainsi l'arbre relatif à la liste L'a","+","1b"] est 


ou(booléen(’a"),booléen("b")) et celui du 2ème exemple décrit plus haut: 
ouCet (non(booléen("a")),booléen("b")),et(booléen("a"),non(boaléen("b"))))., 
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La troisième partie va consister à simplifier (si possible) | 
l'expression entrée. 

C'est le prédicat traduit qui en est chargé. 11 est défini de manière 
récursive et utilise le prédicat transforme tant qu'il y a réellement 
transformation, c'est-à-dire tant que l'expression obtenue est différente de 
l'expression à transformer. | 

La majorité des règles de transformation (simplification) a été 
énoncée. Elles peuvent paraître nombreuses mais elles sont très souvent 
dédoublées du fait de la commutativité des opérations logiques. 

L'arbre syntaxique éventuellement simplifié sera affiché à l'écran. 


.« L'opération suivante va être la conversion de l'arbre simplifié en une 
chaîne de caractères afin, là encore, de rendre le programme convivial. 
C'est le prédicat convertit qui assure cette fonction. Cependant, la chaîne 
obtenue ne sera pas tout à fait affichée telle quelle. Pour plus de clarté, 
les prédicats ‘écrire car et écrire _chafne s'en chargeront. Si le résultat 
contient un NON s'appliquant à une seule variable logique alors l'écriture 
habituelle sera utilisée (lettre surlignée). Par contre si le NON s'applique 
&ä toute une expression l'écriture employée sera non(expression), par exemple 
non(a.b). 


Le dernier point est la transformation de l'arbre simplifié en un arbre 
n'utilisant que des NAND à 2 entrées (dans la mesure où cela est 
nécessaire). 

| La transformation est bâtie sur le même princique que la 
simplification. Ce sont les prédicats traduit nand et transforme _nand qui 
règlent ce problème. 


Pour utiliser cette partie du programme, choisir l'option Run puis, 
après Goal, taper run. Deux exemples sont traités encadrés 5 et 6. 


Jean-Paul POSTEC 


Diaiog 


Dialog 
évalue (ou(booléen(A),b True 


Goal: 


ooléen(B)),5) Goal: évalue (et (booléen(A),b 
A=0, B=0, S=0 | ... Jooléent(B)),5) 
A=0, B=1, S=1 A=0, B=0, S=0 
A=1, B=0, S=1 A=0, B=1, S=0 
A=i, B=1, S=1 A=1, B=0, S5=0 
4 Solutions .[A=1, B=1, S=1 
4 Solutions 
Encadré 1 ° 
Encadré 2 
Dialo 
tode & DER Dialog 
[Goal: évalue (ou(boolëen(A),e Goal: évalue (ou(bovléen(A),e 
t (booléen(B), bouléen(C))),5) + (non (booléen (A) ), booléen (B) 
A=0, B=0, C=0, S=0 )),5) 
A=0, B=0, C=1, S=0 | A=0, B=0, 5=0 
A=0, B=1, C=0, S=0 . A=0, B=1, S=1 
A=0O, B=1, =1, S=1 A=1, B=0, S=1 
A=1, B=0, C=0, S=1 A=1, B=1, S=1 
A=1, B=0, C=1, S=1 4 Solutions 
A=1, B=1, C=0, S=1 ES | 
A=1, B=1, C=1, S=1 - Encadré 4 . 
8 Solutions 


Encadré 3 


{suite de La page 6) ; Actuellement, Turbo-FORTH dispose des fonctionnalités 
Concernant Turbo-FORTH, nous ne POUVONS garantir aucun suivantes: 


délai de parution. Turbo-FORTH est encore en chantier. = INCLUDE réentrant (jusqu'à 20 fichiers, & en 
Turbo-FORTH est avant tout une notion avant d'être un standard) et interactif. 
produit. Le principe est le suivant: en partant du FORTH - gestion MS006 complète (CHDIR, MKOIR, RMDIR, REN, 


83-Standard de Laxen et Perry, que peut-on définir pour DEL, êtc...), : 
améliorer Les performances dl taie en A En - appel de programmes COM extérieurs à Turbo-FORTH. 
L'esprit TURBO de BORLAND. - gestion de toute La mémoire Vive (256, 512 ou 640K). 
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EXPRESSION LOG 1QUE 04:14:35 PM 


Entrez l'expression sous forme de somme logique 
S = a+t(-a).(-b) ‘ 


TRAITEMENTS 


Arbre Syntaxique | 
ou (baoléen ("a"),et (non(booléen("’a")),non(booléen("b"3))3) 


Simplication de l'arbre : 
ou(booléen("a"),non(booléen("b"))) 


Expression simplifiée : 
S = a +Db 


Traduction NAND à 2? entrées 
nand (nand (booléen("a"),booléen("a")),booléen("b")) 


Encadré 5 


PA A AE EE AA AE EEE EEE EEE EE AE EE AE AE EE EE EE AE AE AE AE CCE EE CRE 
7% PROGRAMME PERMETTANT DE TRAITER UNE EXPRESSION LOGIQUE (simplification, 74 
/*x traduction en portes NAND à 2 entrées) OU D'EVALUER UNE EXPRESSION (tablek/ 
/*Xx de vérité). | : X/ 
JX Ecrit en TURBO-PROLOG par Jean-Paul POSTEC NANTES Mai 1987 X/ 
PR RON AK ANA NOHONON AAA AH HAN HHOKONO ARKOAOK HO HOMO RH HONOR HONOR CR AO OO 


domains 
expr=booléen(string); ou(expr,expr); et(expr,expr); 
nand(expr,expr); nor(expr,expr); non(expr) 
liste=stringx* 


predicates 
évalue (expr, integer) 
expr_liste (string, liste) 
arbre(liste,liste,expr) 
terme (liste, liste,expr). 
facteur (liste, liste,expr). 
moins(liste,liste) 
plus(iiste, liste) 
produit (liste, liste) 
parenthèse ouvr(liste,liste) 
parenthèse _ferm(liste, liste) 
transforme (expr,expr) 
transforme _nand(expr,expr) 
traduit (expr,expr) 
traduit _nand(expr,expr) 
égal (expr,expr) 
différent (expr,expr) 
convertit Cexpr,string) 
écrire _chaîne (string) 
écrire car (string) 
run 


clauses 

PARA AAA AOR ARR AR HONOR OH OHORKOMORRORORONH ON AO RRROROIORORORORO III IRIS 
7/*X Ces clauses permettent l'évaluation d'une expression logique et grâce au */ 
/* non-déterministe de donner la table de vérité, ; */ 
ARR HOR AH AORIOROROROORORORRHONNONN ANNON CROIRE NEA OH OO OO A ACR ROOO K 


évalue (booléen(”"0"),0). 
évalue (booléen('1"),1) 


évalue(ou(E1,E2),X) if évalue(El,X1l), évalue(E2,X2), bitor(X1,X2, X). 


évalue(et(E1l,E2),X) if évalue(E1i,X1), évalue(E2,X2), bitand(X1,x2,X). 
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évalue (nand(Ei,E2),X) if évalue(et(El,E2),Y), bitnot(Y,Z), X=Z+2. 
évalue(nor (E1l,E2),X) if évalue(out(Ei,E2),Y), bitnot(Y,Z), X=Z+2. 
évaluetnon(E),X) 1f évalue(E,Y), bitnot(CY,2), X=Z+2. 


ARR MERDE ERIOIOOGIE IEEE PEER 
/*x Clauses de transformation d'une expression sous forme d'une liste *X/ 
RIRE OPEN 


expr_liste (Expr, [ Termei Suite]) if fronttoken(Expr,Terme,Reste), !, 
expr_liste (Reste, Suite). 
expr_liste(_,[1). 


DARK ARE EEE OROOIOIEIREREER 
/X Clauses de transformation d'une liste en arbre binaire syntaxique tout */ 
/*x en tenant compte des règles de priorité des opérations et parenthèses. X/ 
DER OO OO OO OIIEEOROROOIIOOIEIEIEREIERIERIRK 


bre (x ms E2)) i£ enne Libre NM £ 
nee es GAyEt)) € re 2,64); peus(ziw), °) (w,},E2)- 


terme(X,ŸY,et(E1l,E2)) 1f facteur(X,Z,E1), produit (Z,W), !, terme(W,Y,E2). 

terme(X,Y,non(E)) 1f moins(X,W), !, terme(W,Y,E), 

terme(X,Y, A) if facteur (X,Y,A). 

facteur(X,Y,A) if parenthèse _ouvr(X,2), arbre(Z,V,A), !, 
parenthèse_fermCW, Y). 

facteur ([(H!X],X,booléen(CH)). 

moins (L'-"35X1,X). 

plus({"+"*:X),X). 

produit (C”."1X1,X). 

parenthèse_ouvr ({”C’:%X),X). 

parenthèse _ferm(l[")"1X1,X). 


PAR REPRREEEREIEEEEIIIERPENEET 
/Xx Clause permettant différents traitements d'une expression logique entrée X/ 


- /*x sous forme de somme. Ces traitements sont !: X/ 
/* - la sortie de l'arbre binaire syntaxique *X/ 
/k - la simplification (éventuelle) de l'arbre syntaxique *x/ 
/*%X — la traduction (éventuelle) avec des NAND à 2 entrées. : Xx/ 


ARR RIRE RO OEIRERRRERRRIOERRIE 


run if makewindow(1,2,7,"EXPRESSION LOGIQUE" ,0,0,5,80), 
makewindow(2,31,5," TRAITEMENTS" ,5,0,20,80), shiftwindow(1), 
write C'Entrez l'expression sous forme de somme logique :Xn”), 
write (CS = "),readln(Expr), expr_liste (Expr, Liste), L 
arbre (Liste, _,Arbre), shiftwindowt2), 
write C'Arbre Syntaxique :\n", Arbre), nl, ni, 
traduit (Arbre,S), 
write ("Simplication de l'arbre :Nn",S), nl, nl, 
convertit(S,Expr_simpl), 
write ("Expression simplifiée :\n”), und, 
write("S = “),écrire chaîne (Expr_simpl), nl, ni, 
traduit _nand(S, N),° 
write (Traduction NAND à 2 entrées :\n",N), nl, fail 
; readchar (_). 


ARR RIRE OO RO RERO ORREEREERRRIRROIRR 


TX Règles de simplification de la logique booléenne *X/ 
ROC OO IOEIERRERRRREIRR 


transforme (booléen(X),booléen(X)). 
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transforme (ou(E, non(E)),booléen(1")). 

transforme (ou(non(E),ËE),booléen(1)). 

transforme (ou(_, boouléen("1")),booléen("1")) 
transforme (ou(booléen("”1"), ),booléen("1")). 
transforme (out(E,booléen("0")),X) if transformetE, X). 
transforme (ou(booléen("0"),E),X) if transformet(E, X). 


transforme (ou(Ei,ou(El,E2)),outX,Y)) if transforme(Ei,X), transforme(E2,ŸY). 
transforme (ou(Ei,ou(E2,E1)),ou(X,Y)) if transforme(El,X), transforme (E2,Y). 


transforme (ou(El,et (non(E1),E2)) ,outX,Y)) 1f transforme(El,X), 
‘ transforme (E2, Y). 
transforme (ou{(El,et(E2,non(E1))),outX,Y)) if transforme(El,X), 
transforme(E2, Y). 
transforme (ou(et (non(E1),E2),E1),ou(X,Y))> if transforme(Ei,X), 
transforme (E2, Y). 
transforme (ou(et(E2,non(E1)),E1),ou(X,Y)) if transforme(El,X), 
‘transforme (ES, Ÿ). 
transforme (outnon(El),et<(Ei,E2)) ,ou(non(X),Y))> if transtorme(El,X), 
. transforme (E2, Y). 
transforme (ou(non(E1),et(E2,E1)),ou(non(X),Y))> if transforme(E1l,X), 
: transforme (E2, Y). 
transforme (outet(El,E2) ,non(E1)),outnon{(X),YŸ)>) if transformetE1,X), 
transforme (E2, Y). 
transforme (ou(et (E2,E1),non(E1)),ou(non(X),Y)>)> if transforme(E1l,X), 
transforme (E2, Y). 
transforme(ou(El,et(El, )),X) 1f transforme (El, X). 
transforme (ou(E1,et(_,E1)2),X) 1f transforme (El, X). 
transformetoutet (El, ),E1),X) 1f transforme (E1,X). 
transforme (ou(et(_,E1),E1),X) if transforme(El, X). 
transforme (ou(E,E),X) if transforme(E, X). 
transforme (ou(et (E1,E2),et(E1l,E3)),et{(X,ou(Y,2Z))) if transforme(E1l,X), 
transforme(E2, Y), 
transforme (E3,2). 
transforme (ou(et (E1,E2),et(E3,E1)),et(X,ou(Y,2Z)2)2> if transformet(El, X), 
transforme (E2,Y), 
transforme (E3, Z). 
transforme (ou(et (E1,E2),et(E2,E3)),et(X,ou(Y,2)2)) if transforme(E2,X), 
transforme (E1l,Y), 
transforme (E8,2). 
transforme (ou (et (E1,E2),et(E3,E2)) ,et(X,ou(Y,2))) if transforme(E2, X), 
transforme(Ei,Y), 
i transforme (E3,2). 
transforme (ou(Ei,ou(E2,E3)),ou(ou(X,Y),2)2> 1f transforme(El,X), 
transforme (E2,ŸY), 
transforme (E3,2). 
transforme (ou(ou(Ei,E2),E3),ou(X,Y)) if transforme (ou(El,E3),X), 
transforme CE2, Y), 


différent (ou(X, Y),out(ou(Ei,E3),Y)). 


transforme (ou(Ei,E2) ,ou(X,Y)) if transforme(E1,X), transforme (E2, Ÿ). 


transforme (et(CE,non(E)),booléen(0")). 
transforme (et (non (E),E),booléen(0)). 

transforme (et(E,E),X) 1f transformetE, X). 
transforme(et(E,booléen(”’1”)),X) if transforme(E, X). 
transforme (et (booléen("1"),E),X) 1f transfarme(E, X). 
transforme(et( ,booléen(”’0")),booléen("0")) 
Éranatobmetet (bouléen CU), _),booléen(0")). 


transforme (et(El,et(E1,E2)), Jet(X, Y)) if transforme (El,X), transforme(E2, Y). 
transforme (et (E1, et (CE2, 1)),etCX, Y)) if transforme(Ei,X), transfornme(E2, Y). 


transforme (et (El,E2),X) 1f égal(E1,E2), transforme (E1, X). 
transforme (et (El,et(E2,E3)),et(et{(X,Y),2)) 1f transforme(El, X), 
transforme(E2,Y), 


transforme (E3,2). 


transforme (et (et(E1l,E2),E3),et{(X,YŸ)) if transforme(et(E1,E3),X), 
transforme (E2,Y), 


L 


différent (et{X, Y),et(et(E1,E3),Y)). 


transforme (et(Ei,E2),et(X,Y)) 1f transforme(E1l,X), transforme(E2, Y). 


transforme (non(boolëéen("0")),bonléen("1")) 
transforme (non(booléen("1")),booléen('0")). 
transforme(non(non(E)),X) if transformetE,X). 
transforme (non{(E) ,non(X)) 1f transformetE, X). 
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ARR RIRE RER OEIL 


7x Fègles de transformation des circuits en portes NAND à 2 entrées *X/ 
RH RE OR OR OI RERIEOOORERREROOE ER OOEEREEREERIRL 


transforme _nand(booléen(X),booléen(X)). 
transforme nand(ou(E1, E2),nand(nand(X,X),nand€CY, Y23) if 


transforme nand(E1l, X), 
transforme _nand(E2, Y). 


transforme _nand (et (E1,E2), nand(nand(X, Y), nand(X, Y22) if 


transforme nand(E1l,X), 
transforme _nand(E2, Y). 


transforme_nand (nand(E1,E2),nand(X, Y)) if transforme nand(E1,X), 


transforme nand(CE2, Y). 


transforme _nand (nand(nand(E, E),nand (CE, B)),X) if transforme _nand(E, X). 
transforme _nand(non(E),nand(CX, X)) if transforme nand(E, X). 


traduit (Ei,E2) if transforme (E1l,A), différent (A,E1), !, traduit CA, E2). 


traduit CE, E). 


traduit _nand(E1,E2) if transforme nand(El,A), différent (A,E1), !, 
traduit _nand(A,E2). 


traduit nand<E,E). 


égal(CX, X). 


différent (X,Y) if not(égalCX, Y)). 


PRATERTT TT TITI TITI TITI. TILL LL COL CC OC CCC CCE; SL 
/* Clauses convertissant une expression sous forme de chaîne, cela est in- */ 
/x dispensable pour l'affichage de l'expression simplifiée. *x/ 
DRE OK OK AOROO ORHOROOIORERE OIEOROEREROEIROEIOEROOIROERERORORROEROERRERIOIOE 


convertit (booléen(X), X). 


convertit(ou(El,E2),Chaîne) if convertit(E1l,Ch1l), convertit(E2,Ch2), 
concat (Ch1,'+,Ch3), concat (Ch3,Ch2,Chaîne). 


convertit(et(Ei,outE2,ES8)),Chaîne) if convertit (E1,Ch1), 


convertit (et (ou(E1,E2),E3),Chaîne) 


QUE: 


convertit(ou(CE2,E3),Che), 
concat (Ch1,'.(”,Ch3), 
concat (Ch3,Ch2,Ch4), 
concat (Ch4,'")",Chaîne), !. 
convertit CE3,Ch1), 
convertit (ou(CE1,E2),Ch2), 
concat €" (",Ch2,Ch3), 
concat (Ch3,").,",Ch4), 
concat (Ch4,Ch1l,Chaîne), !. 


convertit (et (E1l,E2),Chaîne) if convertit (Œ1i,Ch1), convertit CE2,Ch2), 
concat (Ch1,'.,Ch3), concat (Ch3,Ch2,Chaîne). 


i 


convertit (nontbouléen(X)),Ch) if concat(" ",X,Ch), !. 
convertit(non(E),Ch) if convertit (E,Ch1), concat (‘'non(",Ch1,Ch2), 
concat (Ch2,')",Ch). 


BST TETE TT TT TITI TITTIT TTL TSI TT TIL LES LTS LESC CES CC CCC EST EE 
7x Clauses utilisées par l'affichage de l'expression simplifiée *X/ 
PPT TT TETE TT TT TT TT TETE SET TITI STI LL LL LCL CCC CC CET ESS SL 


écrire _car ("3") if cursort(X,Y), X1=X-1, cursor(X1,%), 
write ( "), cursor(X,Y), !. 


écrire car("'+") if write © +"), !. 


écrire car(X) if write CX). 


écrire chaîne("") if ! 


écrire _ chaîne (Chaîne) if fronttoken (Chaîne, Premier, Suite), 
écrire _car (Premier), écrire chaîne (Suite). 


TEDi L Free hésvannalo re 487 


INTRODUCTION 


I est possible de réaliser des graphiques avec le FORTH FB3-STANDARD. Pour 
cela il faut posséder un sicro-ordinateur IBM-PC ou cospatible, une carte HERCULES et le FORTH-83 
{FB3.C0M), 

Le logiciel qui accompagne la carte HERCULES cosprend différents modules qui 
permettent de travailler à partir des langages suivants: assembleur, basic, pascal et fortran, 
Tous ces sodules transitent par le aodule INTIO.COM qui est une extension du progranse 
d'interruption INT 10H du BIOS d'IBM. En effet ce dernier utilise le vecteur d'interruption INT 
10H pour gérer l'écran du PC, Les concepteurs de la carte HERCULES ont cosplété ce prograsse pour 
lui adjoindre leurs propres fonctions graphiques. 

Il est donc nécessaire de charger le progranse INTI0,COM après la sise sous 
tension du aicro-ordinateur afin d'accéder aux fonctions graphiques de la carte HERCULES, De plus 
la cosande HGC,CON doit-être exécutée avec l'option FULL, Cette commande permet d'utiliser la 
carte HERCULES avec toutes ses options: 2 pages graphiques et un "buffer" de texte, Pour de plus 
aaples inforsations reportez-vous au manuel HERCULES, 


DESCRIPTION DES FONCTIONS 

Quinze fonctions sont disponibles, qui peuvent-être réparties en deux groupes: 
fonctions d'attribut et fonctions de traçage, 

FOMCTIONS D'ATTRIBUT 


- GMODE | PLACE L'ECRAN EN MODE GRAPHIQUE ET AFFICHE LA PAGE 0 


-— TNODE Ê PLACE L'ECRAN EN MODE ALPHANUMERTQUE 

-— BPAGE | SELECTION DE LA PAGE GRAPHIGUE DE TRAVAIL 
-- AFFICHE SELECTION DE LA PAGE GRAPHIQUE À AFFICHER 
-— INTENSITE : SELECTION DU NIVEAU D'INTENSITÉ DU TRACE 


L'écran est défini de 0 à 719 points en horizontal et de 0 à 347 points en 
vertical. Le point 6,0 se trouve au coin haut gauche de l'écran. 


FONCTIONS DE TRACAGE 


-—  EFFACE ! EFFACE ENTIEREMENT LA PAGE GRAPHIQUE COURANTE 
-— POINT ; TRACE UN POINT À LA POSITION 1,Y 

-—  LECTPT ! LECTURE DU NIVEAU D'INTENSITÉ DU POINT À LA POSITION X,Y 
-— DEPLACE : DEPLACE UN CURSEUR FICTIF À LA POSITION (,Y 


-- LIGNE : TRACE UNE LIGNE DE LA POSITION DU CURSEUR À LA POSITION 
A 

-- BLRFILL à TRACE UN RECTANGLE DE TAILLE VARIABLE A LA POSITION 
A 

-- ENT TRACE UN CARACTERE À LA POSITION X, 

—— ARC TRACE UN QUART DE CERCLE AVEC UN RAYON R CENTRE À LA 


POSITION X,Y 
-— CERCLE : TRACE UN CERCLE AVEC UN RAYON R CENTRE À LA POSITION 
A] 
= REMPLI REMPLIGSAGE DE LA SURFACE D'UN POLYBONE DONT LA POSITION 
D'UN POINT EST DONNEE. 
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DESCRIPTION DES DEFINITIONS FORTH 


L'utilisateur accède à ces fonctions par l'interruption logicielle 10H. Le 
coce spécifiant la fonction est chargé dans le registre AH du sicroprocesseur et les registres Di, 
8P, Bt, CX ou AL reçoivent les parasètres nécessaires à l'exécution de la fonction. 

Les codes fonctions s'échelonnent de 40H à 4EH. Rien de plus siaple donc, que 
d'écrire des routines en asseableur (à partir du FORTH) qui persettent d'exécuter toutes les 
fonctions graphiques. C'est ce qu'indiquent les 7 écrans du “listing” ci-après. 

Le prograsse INTI0.COM sauvegarde uniquement les registres C5, IP et les 
“flags" d'états. Par conséquent il faut iapérativenent sauvegarder les registres utilisés pour la 
gestion du FORTH. Ce sont les registres BP et 51 utilisés respectivement cosse pointeur de pile 
retour et pointeur d'interprétation, 


UTILISATION 


Une application graphique doit toujours débuter par un GMODE et se terainer 
par un TMODE (voir les exenples EGSAln), Pour visualiser un graphique il faut #aintenir l'écran en 
aode graphique. Le progranse d'application doit donc contenir une routine qui place le programne 
en attente de la frappe d'une touche du clavier, Cette action est réalisée par la définition 
TOUCHE qui utilise l'interruption logicielle INT 16H. 

Quand on débute une application il est nécessaire d'effacer auparavant la page 
de travail aux risques de voir apparaître des caractères cabalistiques. 

La page Î peut servir de page aéaoire. C'est à dire contenir un tracé qui 
peut-être rappelé pour affichage à tout instant, sans aodifier son contenu, Par contre il n'en est 
pas de aône pour la page 0 qui, si elle est rappelée pour affichage contient ,en plus du tracé, 
des signes cabalistiques (exemple: ESSAIS ESSAIE), Ceci est dû à la présence du "buffer" de teite 
{4 koctets) qui est situé au bas de la page 0. | 

Pour renédier à cet inconvénient il faudrait sauvegarder la page graphique 
dans un fichier disque ou dans un "buffer" de la némoire centrale, C'est une solution à laquelle 
je travaille, 

Cette interface logicielle n'est qu'un outil de base et doit-être conplétée 
pour être plus performante, Il mangue par exenple la définition pour afficher une chaîne de 
caractèreè alphanumériques, le tracé d'une ellipse, etc... 


{suite de La page 8) —. | mémoire compris entre 64k et 128k, ce qui permet La méta” 
- éditeur plein écran pour fichiers ASCII appelé depuis génération d’un fichier .COM de 64k et non plus Limité à 

FORTH en tant qu pui externe. Le positionnement dans environ 15k comme actuellement. 

Le texte sera du style: - et d'autres idées... 


COMMAND EDIT texte.fth Ligne colonne Naturellement, toutes ces fonctions Seront développées 

pu dans JEDI afin de vous permettre d'aligner toute ou partie 

où EDIT est Le nom du fichier EDIT.CON et Les paramètres de F83 Laxen et Perry à, Turbo-FORTH, Le but étant de 

suivent. | | permettre une compatibilité aussi grande que possible des 
- exécution ue MSD05 d'un module précampilé par programmes entre F03 et Turbo-FORTH. 

Turbo-FORTH, Exemple: Marc PETREMANN 


Secrétaire de L'Assaciation 
TURBO WORDS BYE > WORDS.D0C 


Lance TURBO FAULE M5005, exécute WORDS puis retourne à COMPLEMENT À LA LETTRE DE MR BARDNE: 
MSDOS et écrit Le résultat de L'action de WORDS dans un : | 
fichier ASCII nommé WORDS.D0C. Imaginez l'utilité de ce PRIOR AuIE au numéro 38 et à ma Lettre que vous avez 
processus s'il est exploité dans un fichier .BAT. publie, L vous fais parvenir ce courrier qui pourra 
; : permettre éventuellement de meubler une page ou deux d'un 
Sont en chantier Les modules internes: Ne futur N° de JEDI. Je n'ai pas de traitement de texte sur 
- redirection de L'affichage vers un fichier ASCII. mon PC (quand je dois écrire j'utilise un Macintosh) 
Exemple: .. HE ère Que Vous Lis récupérer ce fichier tapé avec 
ALTERNATE: fichier .doc ‘éditeur de TURBOPASCAL. 
AUTERNE ON WORDS ALTERNE OFF 


Tout d'abord AE mots de RSC : je suis 


crée un fichier, redirige L'affichage écran vers ce fichier chercheur au CNRS, chimiste de ormation, mais ayant 

et HRRIÉE toutes Les actions Turbo-FORTH dans ce  bifurqué vers L'informatique Lorsqu'on m'à proposé comme 

fichier Éant que ALTERNE ne passe pas à OFF. sue de thèse de résoudre Les problèmes de synthèse de 

| molécules au moyen de L'ordinateur. On donne une molécule 

Sont en chantier des modules externes: à L'ordinateur et celui-ci, au moyen des réactions 

- fonctions graphiques (diffusées dans Le présent chimiques qu'il à en mémoire, doit faire des DRE 

numéro) | de synthèse. MES est dite rétrosynthétique : on 
- variables Locales donne La molécule à synthétiser (molécule cible) à 

- méta-compilateur générant du code dans Le segment suite page 17 


14 Ten °° 24- Hovemlire 138% 


Paget | ASHERCULES .ELK 


! 

\ ROUTINES D'ACCES POUR LA CARTE HERECULE 12/6/87 
ODE GNODE (S --) 

4 4 AH MOV BP PUSH SI PUSH 186 INT 


û 
l 
20 
3 6 
4 SI POP BP POP NEÏT C; 

5 
& CODE TNODE (S --} 

7 65 #4 AH NOV BP PUSH Si PUSH 16 INT 


8 SI POP BP POP NEÏT C: 
Q 


19 CODE CERCLE (5 x y r --) 

{i BX POP DX POP DI POP 

12 BP PUSH SI PUSH DX RP NOV 

13 77 # AH MOV 16 INT SI POP BP POP NEUT C: 


# 


SUITE HERCULE 

QDE ÉFFACE (5 --) 

6 # AH MOV BP PUSH SI PUSH 16 INT 
1 POP BF POP MENT €; 


18/5/87 


ir © 


\ 
€ 
C] 
5 


sr. 


ODE GPAGE (5 n --) 
X POP 67 # AH MOV EF PUSH SI PUSH 18 INT 
I POP EP POP NEÏT C: 


€ 
À 
5 
CODE AFFICHE (5 n --) 


AX POP 69 # AH NOV BP PUSH SI PUSH 16 INT 
SI POP BP POP NEXT C: 


ee D OO C0 A CG EN Le 


15 CODE INTENSITE (S n --} 
14 ÀX POP 68 # AH MOV RE PUSH Si PUSH 16 INT 
15 61 POP BP FOF NEUT C: 


3 

& \ SUITE HERCULE 

CODE TOUCHE (5 --) 

0 # AH MOV BF PUSH SI PUSH 22 INT 
SI POP BP POP NEXT C: 


12/6187 


CODE LECTPT (5 x y --n) 

 BX POP DI POP 

BP PUSH 51 PUSH 

BX BF MOV 

71 4 AH MOV 16 INT 

0 SIT FOF BP POP O # AH AND AX PUSH 
NEXT C; 


4 
\ SUITE HERCULE 
CODE ARC (S x yrc--) 
AX POP AI POP 
DX POP 
1 POP 
BP PUSH SI PUSH 
DX BP MOV. 
76 # AH MOV 
18 INT SI POP BP POP NEXT C: 
CODE BLKFILL {5 x y Dh --) 
EX POP Ci POP AX POP DI POP 
EP PUSH SI PUSH AX EP HOV 
74 4 AH MOV 
18 INT SI POP EP POP HEXT C: 


5 
\ SUITE HERCULE 
CODE LIGNE {5 x y --) 
Bt POP DI POP 
BP PUSH SI PUSH EX BF MOV 
T3 & AH MOV 16 INT 
SI POP BF POP NEUT C: 


CODE DEPLACE (8 x y --} 
Bi PGP DI POF 

BP FUSH SI PUSH EX BP HOV 
72 & AR NOV 16 INT 

SI POP HF POP NEXT C; 


CODE REMPLIE 1S x y --] 
Ai POP DI POP EP PUSH SI PUSH 
BY HF MOV 78 # AH MOV 16 INT Si POP BF FOP NEXT C:; 


à 
\ 
CODE TEÂT (6 x y caract, --) 
EX POP AX POP DI POP 
EP PUSH S1 PUSH AX EP HOV BY ÀAX MOV 
75 # AH MOV 16 INT SI POP BP FDP NEXT C; 


CODE POINT (S x y --) 

Bi POP DI PÜP 

EF PUSH SI PUSH Bk RF NOV 
FO # AH MOV 16 INT 

SI POP HP FOF KEÏT C: 


Forth 83 Hodel 
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12/6867 


1216/87 


15 


16 


it O- IN En A D 


0 


\ 


Page} 2 A:HERCULES .BLK 


7 
SUITE HERCULE 30/7787 


CODE K (5 -- n} 


2 


\ 
{ 


Î 


{ 


{RP AX MOV 32768 # AX ADD 1PUSH C: 


8 
EXEMPLES 6/09/87 
TRACE UN CERCLE DANS LA PAGE 0 } 


: ESSAIS GMODE EFFACE 360 150 10ù 


CERCLE TOUCHE THODE ; 

TRACE UN LIGNE DANS LA FACE Ô } 

ESSAI2 GMODE EFFACE G 347 DEPLACE 

759 à LIGNE TOUCHE TMOÉE ; 

TRACE UN CERCLE DANS LA PAGE { ET L'AFFICHE } 


+ ESSAIS EMODE EFFACE À GPAGE EFFACE 300 150 120 CERCLE 


L AFFICHE TOUCHE THODE ; 
TRACE UN CARACTERE DANS LA PAGE 0 


: ESSAIA GMODE EFFACE 100 100 ASCII À TEXT TOUCHE THODE ; 


\ 
{ 


TRACE UN POINT DANS LA PAGE 0 } 

ESSAIS GHODE EFFACE 100 150 POINT TOUCHE TMODE ; : 
AFFICHE LA PAGE 0 ) 

ESSAIS GNODE 0 AFFICHE TOUCHE THODE ; 


9 
SUITE EXEMPLES &/09/87 
RFFICHE LA PAGE Î } 


: ESSAIT (5 --} 


{ 


GMODE 4 AFFICHE TOUCHE TMODE ; 


( TRACE UN ARC DE CERCLE DANS LA PABE 0 } 


: ESSAIS (5 --) 


GMODE EFFACE 0 347 521 1 ARC TOUCHE THODE ; 
TRACE UN RECTANGLE COLORIE } 


: ESSAI9 (S --) 


{ 


GMODE EFFACE 100 190 200 50 BLKFILL TOUCHE THODE : 
TRACE UN CERCLE COLORIE ) 

ESSAILO 1S --) 

BHODE EFFACE 300 150 170 CERCLE 300 190 REMPLI TOUCHE 
TNODE ; 


10 

\ COMMENTAIRES 12/4/87 

GHODE POSITIONNE LA CARTE EN HÔDE GRAPHIQUE 

THODE POSITIONNE LA CARTE EN MODE TEXTE 

GPAGE SELECTION DE LA PAGE GRAPHIQUE DE TRAVAIL n= 0 OÙ 1 

AFFICHE :SELECTION DE LA PAGE GRAPHIQUE À VISUALISEE n= 0 OÙ 

INTENSITE :SELECTION DU NIVEAU D'INTENSITE DU SPOT n= 6,1,2 
0= NGIR ; t= BLANC ; 2= OÙ EXCLUSIF ENTRE LE NIVEAU 
SELECTIONNE ET LE NIVEAU DU POINT EXISTANT 

EFFACE  :EFFACE LA PAGE GRAPHIQUE COURANTE 

POINT AFFICHE UN POINT AUX COORDONNEES x y 

LECTPT  :RECUPERE L'IMTENGITE D'UN POINT n=û OÙ 1 

DEPLACE :DEPLACE UN CURSEUR IMAGINAIRE AUX CODRDONNEES x y 

LIBRE {TRACE UNE DROITE DU CURSEUR AU POINT x y 

BLKFTIL :PEINT UN RECTANGLE DE LARGUEUR 1 ET DE HAUTEUR h 
DONT LE COIN EAS GAUCHE EST AUX COCRDONNEES » y . 

TEXT ECRITURE D'UN CARACTERE ASCII AUX CODRDONNEES x y 


il 

\ SUITE COMMENTAIRES 23/7487 
ARC : TRACE UN GUART DE CERCLE 

CENTRE : x y 

RAYON Or 

CADRAN : q i= Gt à qû° 2= 50 à 18ÿ° 

3= 90° à 27û° à= 270* à jéÿ? 

CERCLE s TRACE UN CERCLE 

CENTRE : x y 

RAYON cr 
REMPLI : PEINT LA SURFACE DELIMITEE PAR UN CONTOUR FERHE 

DONT UN DES POINTS EST FOURNI PAR LES COORDONNEES x y 
TOUCHE : ATTENTE EXPECTATIVE DE LA FRAPPE D'UNE TOUCHE, 

LA VALEUR DU CARACTERE N'EST FAS CONSERVEE. 


k : RECUPERE LA LIMITE D'UNE BGUCLE DO 

() 

10/9/87 

ÉCCTTEECETONS CDS REN SUCER TDR OUEN TETE TEE T IEEE 
Î Î 
Î L 
Î 
LI INTERFACE LOGICIELLE POUR CARTE HERCULES 
Î î 
Î Ï 
t Î 
Î ï 
Î î 
L Î 
L î 
Î î 
Î i 
[ÉCETVUUEEETTOTENSUSE CENTS EEE ETETE TES TENTE TT EEE SENTE ES 
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(suite de La page 14) : 
L'ordinateur, celui-ci propose différents précurseurs, AE 
ces précurseurs deviennent de nouvelles cibles et Le 
processus est répété jusqu'à ce qu'on aboutisse à des 
solutions intéressantes. Le programne est interactif : Le 
chimiste sélectionne Les intermédiaires intéressants 
(l'ordinateur fait des erreurs) et guide La rétrospnthèse 
en choisissant Les nouvelles cibles au fur et à mesure. On 
peut Schématiser cette démarche par un arbre : 


*ÉE 


e 


cible 


On peut synthétiser M à partir de Mi ou M2 ou M3 


Si vous trouvez Le sujet intéressant je pourrais entrer 
dans Les détails de ce programme : codage des molécules, 
codages des connaissances (réactions) etc. 


Mais je vais pu aborder Le côté informatique. À 
L'origine, débutant en programmation, je appris ce qui 
s'enseignait à D RRUAUE {en 1970) l'université: Le 
FORTRAN et une première version (1973) pi une seconde 
(1976) tournaient sur un ordinateur de 16 Knots (de 16bits) 
[un IBM 11/30 qu occupait une pièce entière, réfrigérée, 
Le must des années 65], Puis vint Apple (64 Ko Sur un 
bureau, Le pied!) et une adaptation BASIC de notre 
LE Mais ce n'était pas suffisant pour développer un 
ème cer digne de ce nom. 1984: achat d'un Macintosh 
rche RAA de programmation intelligent pour 
La quatrième version du programme (on à de La suite dans 
Les idées au CNRS!) entre temps, La version BASIC avait été 
commercialisée par une société qui L'avait mis sur un 
IBN/PC, et malgré un prix de vente incroyable: 78 000 
Francs HT (mais oui] 5 ou 6 sociétés en avaient fait 
l'acquisition : ce devait donc être un bon programme! ). 


4e 
et recherc 


Donc recherche d'un Langa 

- BASIC: (celui de L'épo 
compilateurs) É assez rapide, : 

- PASCAL: intéressant mais je trouvais La syntaxe un peu 
trap lourde. ne: | 

- C: je ne connaissais pas encore et rien ou presque sur 


ge de programmation génial: 
que, en Û4 il n'y avait pas de 


Le Mac. | RE: 
= APL: hermétique et indisponible sur Mac à L'époque. 


IL faut dire qu'au début sur Mac, il "3 avait pas beaucoup 
de Mate il fallait développer en Pascal sur LISA, et 
notre Caboratoire n'était pas assez riche jour NE 
un, Le Macintosh avait été choisi, car Apple faisait des 
prix: 40% de réduction pour Les développeurs, et La souris 
était L'outil idéal pour dessiner des molécules sur un 


écran. 
. Suite du roman feuilleton: recherche d'un Langage 
intelligent ET disponible sur Mac. Fin 1983, dans Micro 


paru une Série d'articles sur FORTH. Dans 


systèmes était H N 
découverte de JEDI, c'est pourquoi je suis 


cette même revue 


ici OA FORTH paraissait intéressant : son 
extensibilité et AE (en fait il ne L'est pas autant que 
acFORTH était, avec Le Basic interprété 


je L'espérais). Or 
e Microsoft, Le seul Langage permettant de développer 
directement sur Mac. Le choix du Langage était donc trouvé. 


Fin 1987: une version de notre Logiciel tourne en FORTH 
Sur Macintosh et maintenant il nous faut l'adapter sur 
IBM/PC, car dans L'industrie on trouve 
plus de PC et compatibles que des Mac. D'où nouveau 
problème: quel FORTH choisir? Et Là pas facile à trouver, 
car ce nest pas Le Langage de programmation Le plus 
répandu! Comme je L'indiquais, cetui de LMI senble Le mieux 
(ou plutôt Le Seul que j'ai pl trouver), Je ne connais pas 
celui de Laxen et Perry. Cependant, celui de LNI paraît 
très complet du jeun de vue 'ATAARURE On peut travailler 
en CEA, EGA et HERCULES. PARÉNTHESE: dès qu'on veut faire 
du PÉDNISRe sur IBMIPC ce n'est pas simple (surtout si on 
veut écrire un AE jenéal qu puisse cqurner sue | 5 
modes graphiques Les plu ue u5; TURBO et QUICK BASICS 
n'ont pas prévu La carte HERCULES, en € il faut 5e payer 


des bibliothèques qui ne sont pas bon marché, idem en 
FORTRAN, peut-être TURBO-PASCAL ? FIN DE LA PARENTHEGE. 


De plus Le FORTH de LMI j'te NATIVE CODE OPTINIZER 
semble apporter une rapidité qui fait défaut au FORTH. 
Quand au ne celui punaue par Micro Signa, qui Le 
commercialise est très élevé. IL vaut mieux commander aux 
Etats Unis, non pas chez LMI, mais à l'adresse suivante: 


PROGRAMMER’S CONNECTION , 136 Sunnyside Street 

HARTVILLE, OHID 44 632. USA. Tel : (216) 877 97 81. 

PC Forth+ , NATIVE CODE ... et les routines graphiques 
pour moins de 500 $. 

Vu la baisse du dollar, c'est intéressant. Cette boîte 
vend de nombreux AIRE Les personnes intéressées 
peuvent demander un catalogue. Les prix sont intéressants. 


En conclusion et après avoir Lu Le dernier numéro de 
JEDI, j'attends avec impatience Le TURBO FORTH, qui parait 
attrayant pour 5e5 TRE graphiques, par un éditeur 
plein écran et par Les variables Locales pour Le passage 
d'arguments. 

Faudrait prévoir un compilateur en code natif, pour être 
très rapide et abandonner La notation polonaise inversée 
à ce moment Là, Le FORTH sera un Langage PRESQUE) génia 
(même si ça ne ressemble plus beaucoup au FÜRTH). 


Cette dernière phrase me fait penser que j'avais envie 
de dire quelques mots Les Langages de Rp r POne Ie 
avoir sélectionné MacFORTH pour développer notre système 
expert, j'ai continué à chercher LE Langage idéal. Bien 
sûr il “n'existe pas, tout dépend de Ce que L'on veut 
faire. Personnellement je cherche un Langage: extensible 
comme FORTH, simple comme BASIC, rapide comme ASSEMBLEUR. 


Qui écrira ce UE ? En Lisant JEDI, j'ai cru trouver 
avec LPB Les deux derniers points. Malheureusement, son 
auteur semble avoir quelques problèmes. Dommage car c'est 
un Langage DAT En Lisant Micro Systèmes, je me suis 
intéresssé à MABIC/L: MUHE très chouette, mais après 
avoir reçu La doc des Etats Unis, pes de possibilités 
LE rapide comme un PASCAL UCSD, c'est-à-dire, pas 
rès, dommage car proche du FORTH et du PASCAL. 


. En ce moment ARENNS €, qui est très bien. Après 
t PROLOB en détail, DE te de manipuler 
es molécules avec. Reste encore LISP, SMALL TALK. 


que c'est dur La programmation! Je refuse 


Mon Dieu, j 
je ne comprends pas comment, en 


Re COS .c0 
1387, on soit encore obligé d'utiliser un tel iaaqe pour 
avoir un programme très rapide et qu'il n'existe pas un 
Langage simple qui une fois compilé donne La vitesse de 
L'assémbleur! Si il y à LPB, mais voir plus haut. Dommage, 
c'était peut-être Le Langage du siècle. 


La solution viendra peut-être du microprocesseur NOVIX: 
pas bessin de projet en assembleur mais en FORTH! A 
AU de NOVIX, pour des raisons trop Longues à 
expliquer, j'en ai un exemplaire. Si une personne est 
intéressée il est à vendre. A propos de ce 
microprocesseur, il serait bien que JEDI 
puisse nous tenir au courant de 5on développement et de 
ses possibilités. 


Qui construira une carte équipée de NOVIX enfichable 
dans un compatible? On aurait alors une machine vraiment 
formidable! 


NOUVELLE REPONSE OU SECRETAIRE  (...disons des 
éclaircisements): 
Nous avons ici une démarche de développeur type 


passionné par son travail, mais ne sachant pas quelle voie 
choisir. Qui n'a pas Connu ces problèmes me jette Le 
premier clavier... 


fl est toujours angaissant de se Lançer sur 
amOltieux avc des “moyens dont on n'est pas 
performances. Les exigences de La technique 


un projet 
sfr LE 
ont d'une 
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certaine manière pue les outils permettant de maitriser 
cette technique. Autrefois, Les astronomes jen 
demandeurs de calculs, utilisaient des outils mathématiques 
PAS avaient eux-nême inventé  Clogarithmes, 
rigonométrie, calcul os Cette DLL ne 
s'est LL faite en une seule génération, Entre EUCLIDE et 
EINSTEIN Cqui tait physicien, mais avait comme assistant 
mathématicien Le futur inventeur de BASIC...), des milliers 
de ‘bidouilleurs" ont élaboré une kyrielle de moyens et de 
méthodes Le anatyser et comprendre La nature du monde, et 
ce n'est pas fini: Les fractals, La théorie des 
catastrophes, La topologie, Les noeuds, La géométrie non- 
euclidienne, etc... 


IL est donc normal que Les machines chargées de traiter 
L'information suivent une évolution identique. On dira que 
La fonction crée l'organe, or, à preuve du contraire, un 
organe est toujours très spécialisé. Respectez ce grand 
principe: 


ne construisez pas des moissonneuses batteuses- 
Lieuses-faucheuses-embaiteuses qui ne serviraient qu'à La 
récolte du nue utilisables seulement dans Les pleines 
septentrionales de L'Inde et seulement 15 jus Ji an 
is Le solstice d'été (on l'a Fi sortie RS DE 
FORTH, écrit par moi-même et ROUSSEA 


L'idéal, à mon avis, est de disposer de plusieurs 
Mrs et Me et de Les faire communiquer 
ensemble. Turbo-FÜRTH appelle un module FORTRAN, revient 
ensuite au DOS, Le fichier BAT passe ensuite en Turbo- 
PROLOG qui exploite un fichier généré par dBASE III, etc... 
Si, c'est DRUSE L'exemple est un peu excessif, mais 
devient de plus en plus fréquent en programmation. 


Autrefois, Le ZX81 n'avait que Le BASIC... Hier, L'APPLE 
avait Le BASIC, PASCAL FORTH, C, LISP, et d'autres, mais 
ils ne communiquaient pas. Aujourd'hui, avec 256k au 
minieun sur un compatible PC de base, on hberge Le DOS, un 
intégré, un programme de traitement de texte et on Lance un 
utilitaire auetonque Demain, Le CO-ROM (peut-être Le CO- 
WRM -Compact-disc Write and Read Memory) avec ses éBoctets 
(éGiga-octets) et peut-être pis {on parle déja de 
CLS à 206octets) Sera tellement interactif que vous 
aurez l'équivalent de plus de 3000 pes d'encyclopédie 
avec sélection des corrélats, recherche par mots clés 
directement dans Le texte (exemple: rechercher tous Les 
articles où il est fait référence à l'acide 
désoxyribonucléique). Demain, des batteries de scanners 
mettront des archives, des livres et des journaux, des 
plans (voir Le système d'archivage documentaire de LEANORD) 
en COROM. Des systèmes d'analyse sRttIqUe et syntaxique 
pourront élaborer des résumés, voire traduire des articles 
en Langue étrangère. 


Et FORTH dans tout ça? IL est destiné à évoluer. Si Le 
NOVIX a fait son apparition, c'est qu'il à un rôle à jouer 
dans L'informatique de demain. Peut-être n'est-il Le Le 
précurseur d'une nouvelle génération de AT on en 
repartera dans La série consacrée à La logique). Tout en 
restant standard, FORTH ne peut te tie L'amélioration 
de Ses performances est un élément vital à sa diffusion 
massive. Rien n'empêche de tirer dans toutes Les 
directions: F83, Turbo-FORTH, carte Delta-BDARD (avec NOVIX 
4000), FORTH LMI, etc. 


Concernant La proposition de dévelapement du qe CODAGE 
DE MOLECULES, je puis avancer avec gaie ude qu'un 
certain nombre d'adhérents bave d'impatience d'en connaitre 
davantage. De même, Si vous avez des problèmes pour 
optimiser votre programme en Langage FORTH, parions sur une 
aide bénévole mais efficace de [a part de AR ts 


ans T0 
, ed Eyrolles). 


AT AMQISE en quête d'idée riche (5 uoeufs frais au 
ilo...}, 

LE SECRETAIRE 
COURRIER: Cher ami 


Au reçu du dernier N° de La revue j' me Suis PMpressé 
d'implanter Turbo-Forth sur ou e. C'est vraiment 
sensationnel. Un petit regret toutefois, que La très utile 
commande view ne puisse être utilisée pour Les mots créés 


(IAE 


TEN #° 29. Novembre 


par INCLUDE. 


Je vous envoie ci-inclus Facpr.txt qui utilise un 
atgorithme de mon crû pour décomposer en produit de 
facteurs prenier un entier double avec une vitesse 
illustrant, Si besoin était, Les performances 
exceptionnelles de Forth. 


J'ai trouvé un pot défaut tant dans F83 que dans 
Turbo-Forth pour utilisation sur PC: La touche ‘Rubout" 
€ctrl H) effectue un retour arrière sans effacement . J'ai 
donc remplacé BS-IN par DEL-IN en palin & de La 
control-tabl et tout va bien. Pour F83, plutot que de 
modifier kernel.blk, j'ai tické (mot affreux mais plus 
compréhensible pour Les forthistes que Le poker des 
basiciens) directement dans La table Le cfa de del-in au 


Lieu de celui de bs-in. , 
J'incius également un peu bloc EX-BM d'utilitaires 

divers et en particulier MOTS, analogue à WORDS mais qui 

affiche en plus l'adresse hexa du Lfa de chaque not ainsi 

HIS page d'utilitaires servant de base à La gestion sur 
isque de fichiers séquentiels. 


Le fichier LIT.COM par Lequel vous avez probablement 
entrepris de me Lire ,est L'oeuvre de Bruno Tredez , 
DA tIens de La section Ile de France du GUIC (broupe des 

tilisateurs de L'Ibm pc et Compatibles, BP 77, 74600 
SEYNOD). J'espère qu'il ne m'en voudra pas de vous l'avoir 
communiqué. 


Atitre de contribution à L'association La présente 
disquette comporte également un fichier de présentation de 
La pile *heap'" de Turbo-pascat, déjà publié par Le GUIC et 
que vous pourrez publier dans La revue Jedi si vous Le 
jugez utite. 


A bientot, j'espère. Recevez cher ami L'expression de 


mes sentiments Les meilleurs. 
Bernard MORISSEAU 
15008 PARIS 


| DECOMPOSITION EN FACTEURS PREMIER | 


par Bernard MORISSEAU 


Turbo-FORTH 
F83 Laxen et Perry MSDOS et CP/M 


: DIV 0 BEGIN DR 3OUP DR DR DR MU/MOG ROT R) R) ROT 
R) SWAP R) SHAP 0= WHILE 
1+ )R -ROT 20ROP R) REPEAT 
OUP IF SWAP OUP CR 9 .R SWAP 15 .R 
ELSE OROP THEN >R 2SWAP 2DROP R? ; 
: FACPR CR CR ."  Diviseur Puissance" CR 
à DIV 1+ DIV DROP 5 DIV 
BEGIN 2+ DIV 4 + DIV 30OUP OUP #0 DOUX UNTIL 
CR OROP 9 UO.R 7 15 .R CR ; 
( # ESSAIS x ) CR 
7143217642. FACPR 
9845646733. FACPR 


| UTILITAIRES DIVERS | 
En par Bernard MORISSERU ou 


Turbo-FORTH 
F83 Laxen et Perry MSO0S et CP/M 


\utilitaires divers 11nov87 RM | 

: H. rte et affiche en hexa non signé base inchangée) 
BASE OUP @ ROT HEX U. SAP ! ; 

: BASE? BASE DUP @ OUP DECIMAL . SWAP ! ; 

: SUV (5 Lfa =] 
BEGIN KEY? IF EXIT THEN OUP 
WHILE OUP LONAME OUP C@ 31 AND 


e 


9LINE OUP H. .I0 .‘ 

REPEAT ; | 
: MOTS € comme words + affich. Lfa des mots) 

CR LMARGIN @ SPACES CONTEXT @ HERE TUCK 8 CMOVE 

4 LARGEST SUIV : 


Utilitaires divers … 11n0v87 BM 
: ENPST SPO @ SP! ; € vide La pile ) ; 
:  PADS € Saisit une chaine et 


à " R SWAP ! HERE 4 LARGEST 


L'inscrit dans pad ] 
PAD OUP 20 32 FILL OUP ." ? * 
20 O DO 1+ KEY OUP 13 = 
IF OROP LEAVE 
ce OUP EMIT OVER C! I 1+ 2 PICK C! 


HE 
LOOP 32 OVER C? 2DROP ; 
: TEXT (5 su =] 
IL WORD COUNT PAD SWAP 2GUP SWAP ! 
SWAP 1+ SWAP CMDVE : 


\utilit. jeun fichiers dsk séquentiels 12nov47 BM 
: AFF (S aûr long --- ) 

0 00 DUP I + C@ . LOQP DROP ; 

SIFHREE NBL VARIABLE DEP € N'bloc , déptt ) 


\ oct -- inscrit octet à adr dans bloc et incrém adr 
NBL @ BLOCK DEP OUP DR @ +# C! 
R) OÙUP @ 1024 MOD 1023 = 
IF OFF UPDATE GAVE-BUFFERS 1 NBL TUCK +! @ CAPACITY = 
IF 1 MORE THEN 
ELSE 1 SWAP +! THEN ; 
: &NB (.) 0 00 DUP CQ &! 1+ LOOP DROP ; 
\ inscr nbre sur pie dans bloc forme c-caract 
: &INP PADS PAD COUNT 0 
00 OUP C@ &! 1+ LODP DRDP 13 &! 10 8! ; 


| conne en produit de facteurs premiers 12nov87 EM 
: n --reste 

0 BEGIN DR 3DUP ?R DR DR MU/MOD ROT R) R> ROT 

R) GWAP R) SWAP 0: 

WHILE 1+ )R -ROT 2UROP R) 

REPEAT 


OUP IF SWAP OUP CR 9 .R SWAP 15 .R 
ELSE OROP THEN 
>R 2SWRP 2DROP R) ; . 
: FACPR CR CR .* Diviseur Coefficient" CR 
2 DIV 1+ DIV OROP 5 DIV 
BEGIN 2+ DIV 6 + DIV 30UP QUP #0 DOUX UNTIL 
CR DROP 9 UD.R 1 15 .R ; 


LA PILE HERP DE TURBD-PASCAL | 


par Bruno TREDEZ 
Turbo-PASCAL 


Pour tout Langage compilé, Les variables doivent être 
déclarées ainsi que Leurs dimensions s'il s'agit de 
tableaux. IL en résulte que, même 51 une variable n'est 
utilisée que temporairement, elle occupe de La place en 
mémoire pendant toute L'utilisation du programme. 


Mis à part l'assembleur, Seuls Les Langages interpretés 
permettent La réutilisation d'une Zone mémoire pour 
d'autres besoins (ex: instruction ERAGE du Basic). 


D'autre part, tes variables "pointeur" ne peuvent 
généralement gérer que des adresses Symbaliques, ce qui 
ralentit l'exécution des programmes du fait de La 


conversion des adresses symbotiques en adresses mémoire. 


Turbo Pascal utilise deux piles : 
1° La pite système | 
2° Une pile particulière dénommée HERP destinée au 
stockage temporaire de variables dynamiques. 


généralement du QLÉ ."RECORD' et 


Celies-ci sont 
$ 41n5i QU'UA OÙ 


comportent plusieurs Champs: clés, attribu 


plusieurs champs de type “Pointeur". 
LES TYPES RECORD ET POINTEUR 


Ce sant deux 
déclaration : 


type 
pointemp = ‘employe; (+ variable pointeur pointant 
sur gt #) 

employe = record; 
ident :integer; 
nom  :String[15); 
adr :string{20]; 
suiv ir RERO 

end; (employe) 


types standard de variables, Exemple de 


Une variable pointeur est une variable d'adresse 
mémoire, elle occupe 4 octets (2 oct.:seg, 2 oct.:uffs.) 
Les affectations entre pointeurs de même type sont 

icites. 


Les deux piles utilisent (sauf instructions 
contraire) La totalité de La mémoire Libre. La pile Heap 
est gérée au moyen de: 


-Un pointeur système “heapptr" qui pointe en permanence 
sur Le sommet de La pile. 
-Trois procédures standard: 
…  ‘new* alloue un nouvel 
pile (ex: new(employe) ) | 
“mark Cnom-var-pointeur)" affecte à une variable de 
type pointeur La valeur courante du pointeur de pile. 
‘release(nom de variable PHTTANS efface toutes 
Les variables dynamiques à partir de cette adresse, 
libérant ainsi La place pour une nouvelle utilisation. 


Au début d'un doter le pointeur heapptr est 
initialisé à L'adresse basse du Reise et croit vers 
Le haut à La rencontre de (a pile CPU Lors des 
réservations pal NEW. 

Les deux jé its programmes POINT.PAS et STOCK.PAS sont 
des démonstrations de Leur utilisation. Le premier 
effectue La saisie d'un fichier en mémoire centrale, 
empilant Les AUS AS ne exécute un tri bulle sur 
Les clés d'identification et Liste Le fichier dans L'ordre 
C'est Le mécanisme de permutation qui est 


emplacement au sommet de La 


des clés. 
utilisé . 


Le Second gère un fichier disque physiquement trié. Il 
effectue Le rappel dans La pile heap du fichier et permet 
La saisie de nouveaux enregistrements avec insertion 
immédiate par Seule modification des pointeurs. Le fichier 
modifié est enfin réécrit sur Le disque. Dans La pratique 
un tel mécanisme gérerait non pas un fichier principal 
mais un fichier index associé. Les Schémas suivants 
illustrent ces mécanismes. 


= PERMUTATION D'ENREGISTREMENTS - 


Avant permutation 


s)-ER-R-0- 


TEMP=POINT(A) POINTIA)=POINT(B) POINT(B)=POINT(C) 
Eh Eh BF 
san AS SE 


Après permutation 


co 


POINT(C)2TEMP 
Le 
fées none 


= INSERTION D'UN ENREGISTREMENT - 


TE); 
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Avant insertion | | 
CIE 


POINT (A)=C 


POINT(C)=8 
Après insertion 


#1) 
Î 
5 


LISTING DE POINT.PA 
Program POINTEURS; C# DEMONSTRATION DE TRI #) 


type | 
pointart = “article; 
article = record 
ref sinteger; 
des :stringt19]; 
suiv:pointart; 
end; 


var 
a:string{é]; 
des:string(15]; | 
premier ,nouveau,courant,c2?,c3:pointart; 
F,5,0,1,j:integer 
heaptop:"integer; 
inv:boolean; 


Label sortie; 


ALL ajust; Cæ INVERSER SI SUIVANT € COURANT #) 
egin . ; 
c2:=courant".suiv;c3:=c2".suiV; 
r:=c2".ref;s:=c3".ref; 
if c2*.ref )c3".ref then 
begin {3} . 
Courant" .suiv:=c3;n0Uveau:=cour ant ; 
courant:=C2; | 
courant".sulv:=c3".suiv: 


ca".suiv:=C2; 
courant:=nouveau;inv:=true; 
end; {3 


courant:=courant".suiv; 
with courant" do begin 
risref;s:=suiv".ref; 


end. 
end; {ajust} 


begin AIT (+ SAISIE DES DONNEES #) 
writeln(’ POUR SORTIR FRAPPER RETURN');writeln; 
remier:=n1l; 
arkCheaptop): 
n:<0; 
repeat 
writel' référence ? ’)ireadln (a); 
if aço'" then 
begin 
valta,r,5); 
n:=nt1; 
new (nouveau); 
nouveau”.ref:=l; 
write(' désignation ? ');readintnouveau*.des); 
writeln; 
if premier=nil then 
begin 
premier :=NOUVEAU; 
C2:=nouveau: 
end 
else 
c2,.sUiV:=NGUvEAU: 
nouveau" .suiv:=nil; 
C2:=nOUVeaU; 


end; 
until a='"; 


(98% 
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E || 


{+ TRI BULLE *) 


for i:=n-1 dounto 1 du 
begin (1) 


inv:=false; 
with premier" do 
if ref >suiv'.ref then 
1 (3) | : 
cè:=premier".suiv;cà:=premier ; 
premier" .suiv:=C2 .suiv;premier :=C2; 
.premier*.suiv:=C3; 
inv:=true 
end; (3) 
courant:=premier ; | 
with courant” do r:=suis".ref; 
for j:<2 to i do 
vith courant" do ajust; 
if jnvzfalse then goto sortie; 


end; {1} 


sortie: 


writeln; 
while premier © nil do 


wi 


th premier * do 


begin 
writetn(ref:5,' ‘,des); 


premier:=SU1V; 


end; 
release(heaptop}; 
end. 


LIST 


‘y 


en 
po 
ar 


end 


type 

fi 
var 
st 
FE 
( 
pr 
r, 
ba 


(CE 
proc 
egi 
ur 


rep 


ING DE STOCK.PAS 


ste = record 
ref sinteger; 
des :string[15]; 


d; 
intart = “article: 
ticle = record 
Lar :liste; 
suiv:pointart; 


cst sfile of Liste; 


ock : ficst: 
ARE ANS 
t:liste; . 
emier courant nouveau ,temp:pointart; 
s:integer; 

seheap:"integer; 


AISIE DES ENREGISTREMENTS +) 
edure sai51e ; 
n {saisie} | 
per POUR SORTIR FRAPPER RETURN’) ;writetn; 
ea 
write('reference ? ’};readin (a); 
if 30°! Chen 
begin {1) 
valta,r,s); 
new (Nouveau); 
nouveau" Lar.ref:2r; 
write('désignation ? ‘);readlntnouveau”.Lar.des); 
writeln; 
if premler=nil then 
begin ; Re 
premier:=nouveau;premier".suiv:=nil; 


en 
else if r <premier”.lar.ref then 

begin | : 
nouveau” .suiv:=premier ; 
premier :=AOUVEAU ; 
end 

else 
begin 
CORANCE=AERMIET* 
Fe 


temp:=courant; 


courant:=courant".suiv: 
until recourant" .Lar.ref ; 
nouveau” ,.suiv:=courant; 
temp".Suiv:=nGUveaU: 
end; 


Case 
141 


end ; {saisie} 
{4 SAUVEGARDE DU FICHIER CLASSE #) 
QUE save ; 
egin {save} 
rewrite (stock); 
writeln; : 
while premier €» nil do 
with premier * do 
begin 
write Cstock,lar); 
premier:=suiv; 
end; 
closelstock}); 
release(baseheap); 
end; {save} 


(4 LECTURE ET EDITION OU FICHIER CLASSE #) 
DRATAQUES Lecstock ; 
egin 
nark (baseheap); 
premier :=nil; 
writeln; 
reset (stock); 
while not eoftstock) do 
begin 
new (nouveau); 
read(stock,Lst); 
nouveau”.Lar :=15t; 
nouveau*.suiv «nil: ; 
if premier = nil then premier := nouveau 
else temp'.Suiv :=NOUVEAU ; 
temp :=nouveau: 


end; 
close(stock); 


nd; 
procedure attend; 


egin 
Gay 25) rite Frapez une touche’); 
repeat until keypressed; 

clrscr; 

end; 


prACEdRRE editst ; 
egin 
Clrser;courant:=premier; 
while courant ©) nil do 
begin 
writeln { courant”.Lar.ref:5,‘ 
if wherey=23 then attend; 
FUAAaNL := Courant”.suiv; 
end; 


attend: 
end ; {editst} 


procedure menu; 
nt 

€ anne 

gotoxy(6,7);writeln(* 

gotoxy(6,9);writelnt" 

RE 
n 
nl 


*,courant”.Lar des); 


riteln('# MENU DES COMMANDES #'); 
(1) Appet du fichier’); 
(2) Edition du fichier‘); 
i "(3) Ajout dans Le fichier’); 
gotoxy(6,13);writeln('(4 
NA DRUE IST EMAIL "(5 
eng; 


i 
1 
è 
{ 
(4} Sauvegarde"); 
(5) Retour au 005"); 


var choix char; 
Label deb , sortie; 


TI MIERs 
a551gn(stock,'STK.FIC'); 
per tide(stextentortt};textbackgraund(7}; 
e0: 
MENU; ; | 
repeat QU RAA NP ER EE Vatre choix ? ‘); 
read(kbd,cho1x):write(choix): 
until choix int ‘11.51: 


TE Di 


choix of 
:Lecstock: 
seditst: 
:Sài5ie; 


Save 
:goto sortie; 


(38% 


N° 34 = Kbvrenar bre 


21 


